PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Media/HyperText Stacks Folder/Xref-Text/background_2704.txt

Text File | 1988-05-03 | 8.3 KB | 370 lines

-- background: 2704 from stack: in
-- bmap block id: 6492
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on opencard
  set lockText of field body to true
  set the name of bkgnd button id  3 to "Edit Text"
end opencard


on closecard
  set lockText of field body to true
  set the name of bkgnd button id  3 to "Edit Text"
end closecard


-- part 1 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=3 top=54 right=307 bottom=361
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: body
----- HyperTalk script -----
on mouseUp
  put the shiftkey into keystate
  if the selection is empty then
    set lockText of the target to false -- unlock to enable text editing
    repeat two times
      click at the clickLoc -- double click where the user clicked
    end repeat
    put the selection into holder
    if keystate is down then
      type holder & "*"
      push card
      doMenu New Card
      put holder into field keywords
      pop card
    else
      push card
      if holder is not empty then
        visual effect zoom open
        find holder in field keywords -- This line is the link
        if the result is not empty then
          answer "No match for keyword " "e& holder"e
          pop card
        end if
      else
        set the name of bkgnd button id 3 to "Lock Text"
        click at the clickLoc
        exit mouseup
      end if
      set lockscreen to true
      put "find " & quote & holder & quote into msg
      hide msg
      set lockscreen to false
    end if
  end if
  click at 0,0 --disable selection
  set lockText of the target to true
  hide msg
end mouseUp



-- part 2 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=222 top=27 right=50 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: keywords


-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=374 top=85 right=112 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit Text
----- HyperTalk script -----
on mouseUp
  set the lockText of field body to not the lockText of field body
  if lockText of field body is true then
    set the name of bkgnd button id 3 to "Edit text"
  else
    set the name of bkgnd button id 3 to "Lock text"
  end if
end mouseUp



-- part 4 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=415 top=124 right=152 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lock Text
----- HyperTalk script -----
on mouseUp
  set lockText of field body to true
  hide bkgnd button "Lock Text"
  show bkgnd button "Edit Text"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=446 top=239 right=271 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  hide field body
  show bkgnd button OK
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=413 top=151 right=178 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  pop card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=415 top=179 right=207 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Stack
----- HyperTalk script -----
on mouseUp
  doMenu New Stack...
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=446 top=297 right=330 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close to black
  visual effect iris open to white
  visual effect dissolve
  go home
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=477 top=270 right=298 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 8419 / 8419
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go next
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=415 top=270 right=298 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 17779 / 17779
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go prev
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=365 top=107 right=129 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  hide bkgnd button OK
  show field body
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=376 top=209 right=236 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan text for Ref
----- HyperTalk script -----
on mouseUp
  put the name of this card into maincard
  set lockscreen to true
  repeat with i= 1 to the number of words in field body
    put word i of field body into holder
    if last char of holder="." then
      put empty into last char of holder
    end if
    if last char of holder="," then
      put empty into last char of holder
    end if
    if last char of holder="!" then
      put empty into last char of holder
    end if
    if last char of holder="?" then
      put empty into last char of holder
    end if
    if last char of holder ="*" then
      put empty into last char of holder --kill the asterisk
    end if

    find holder in field keywords -- This line is the link
    if the result is not "not found" then
      put field keywords into temp
      if temp<>holder then
        go to maincard
        next repeat
      end if
      go to maincard
      put holder & "*" into word I of field body
    end if
    set lockscreen to false
  end repeat

end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=373 top=120 right=147 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Auto Create Ref
----- HyperTalk script -----
on mouseUp
  put the name of this card into maincard
  set the cursor to 4
  repeat with i= 1 to the number of words in field body
    put word i of field body into holder
    if last char of holder="." then
      put empty into last char of holder
    end if
    if last char of holder="," then
      put empty into last char of holder
    end if
    if last char of holder="!" then
      put empty into last char of holder
    end if
    if last char of holder="?" then
      put empty into last char of holder
    end if
    if last char of holder ="*" then
      put empty into last char of holder --kill the asterisk
      find holder in field keywords -- This line is the link
      if the result is "not found" then
        domenu new card
        put holder into field keywords
        go to card maincard
      else
        go to maincard
      end if
      go to maincard
    end if
  end repeat
  beep
end mouseUp